home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / vic initialize (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  362b  |  21 lines
  1. 50000 v=53248
  2. 50010 for c1= 1 to 16
  3. 50020 poke v + c1, 0
  4. 50030 next
  5. 50040 poke v + 17, 27
  6. 50050 poke v + 21, 0
  7. 50060 poke v + 22, 200
  8. 50070 poke v + 23, 0
  9. 50080 poke v + 24, 21
  10. 50090 poke v + 26, 240
  11. 50100 for c1 = 27 to 46
  12. 50110 poke v + c1, 0
  13. 50120 next
  14. 50130 for c1 = 2040 to 2047
  15. 50140 poke c1, 13
  16. 50150 next
  17. 50160 poke 646, 14
  18. 50170 rem   **** put a return here ****
  19. 50180 rem   **** if you use this   ****
  20. 50190 rem   **** as a subroutine.  ****
  21.